perm filename DIVD.FAI[CMS,LCS] blob sn#197642 filedate 1976-01-18 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		.INSERT	ASMBL.FAI
C00003 ENDMK
CāŠ—;
	.INSERT	ASMBL.FAI

	LOC 40

MSR:	0
	0
Q:	0
	0

	LOC 1400
DIVD:	
	LDXI	0
	TAY
	BEQ	ZERO
	BMI	DONE
SLOP:	INX
	ASLA
	BPL	SLOP
DONE:
	LDYI	0
			;TST A
	BEQ	ZRO
	BMI	DON
LOP:	ASLZ	Q
	ROLZ	Q+1
	INY
	BPL	LOP
DON:
	LDAZ	Q
	SEC
	SBCZ	MSR
	STAZ	Q
	LDAZ	Q+1
	SBCZ	MSR+1
	STAZ	Q+1

	BCC	LES
	LSRZ	MSR+1
	PHP
	LSRZ	MSR
	PLP
	BCC	NOC
	LDAZ	MSR
	ORAI	200
	STAZ	MSR
NOC:

END